Imports MySql.Data.MySqlClient
Public Class clsMySQLReader

    Private MySQLReader As MySqlDataReader
    Private result() As Object
    '    Public Sub New(ByVal reader As MySql.Data.MySqlClient.MySqlDataReader, _
    '        ByVal type As readerData.ReaderType)

    '    MySQLReader = reader
    'End Sub


End Class
Class readerData
    Public Enum ReaderType
        Associative
        Numeric
        Both
    End Enum
    Private HashArr() As Hashtable
    Private CurrentRow As Int32

    Public Sub New()
        ReDim HashArr(0)
        CurrentRow = 0
        'numRows = 1
    End Sub
    Public Sub NextRow()
        CurrentRow += 1
        ReDim Preserve HashArr(CurrentRow)
    End Sub
    Public Sub Add(ByVal sColumn As String, ByVal data As Object)
        HashArr(CurrentRow).Add(sColumn, data)
    End Sub
    Public Sub Add(ByVal iColumn As Int32, ByVal data As Object)
        HashArr(CurrentRow).Add(iColumn, data)
    End Sub
End Class